home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / r / real_3d / real3dv3.3b.dms / real3dv3.3b.adf / GUI.LZH / GUI / saturnus.gui < prev    next >
Text File  |  1995-03-25  |  4KB  |  154 lines
  1.  
  2. (
  3. ( Interface for rpl/saturnus.rpl
  4. (
  5.  
  6. ?& SATURNUS_GUI NOT ?IF
  7. 1 CONSTANT SATURNUS_GUI
  8.  
  9. "ui.rpl" LOAD
  10.  
  11. ( Variables
  12.  
  13. VARIABLE saaWindow
  14. VARIABLE saaPartCnt
  15. VARIABLE saaPartSize
  16. VARIABLE saaRingCnt
  17. VARIABLE saaPlanetSize
  18. VARIABLE saaWireFrames
  19. VARIABLE saaString
  20. VARIABLE saaText
  21. VARIABLE saaRed
  22. VARIABLE saaGreen
  23. VARIABLE saaBlue
  24.  
  25. 160 CONSTANT saiLeft
  26. 160 CONSTANT saiWidth
  27. 12  CONSTANT saiHeight
  28.  
  29. : sacbApply
  30.     VARIABLE iPartCnt
  31.     VARIABLE iRingCnt
  32.     VARIABLE iWireFrames
  33.     VARIABLE iRed
  34.     VARIABLE iGreen
  35.     VARIABLE iBlue
  36.     100 STRING sPartSize
  37.     100 STRING sPlanetSize
  38.  
  39.     ( fetch attributes from gadgets
  40.     UI_Done iPartCnt UISL_Level saaPartCnt FETCH UI_GETATTRS
  41.     UI_Done iRingCnt UISL_Level saaRingCnt FETCH UI_GETATTRS
  42.     UI_Done sPartSize UIST_String saaPartSize FETCH UI_GETATTRS
  43.     UI_Done sPlanetSize UIST_String saaPlanetSize FETCH UI_GETATTRS
  44.     UI_Done iWireFrames UICB_Checked saaWireFrames FETCH UI_GETATTRS
  45.     UI_Done iRed UISL_Level saaRed FETCH UI_GETATTRS
  46.     UI_Done iGreen UISL_Level saaGreen FETCH UI_GETATTRS
  47.     UI_Done iBlue UISL_Level saaBlue FETCH UI_GETATTRS
  48.  
  49.     ( push parameters on stack
  50.     iPartCnt FETCH
  51.     iRingCnt FETCH
  52.     sPartSize ATOF 
  53.     sPlanetSize ATOF 
  54.     iWireFrames FETCH
  55.     iRed FETCH
  56.     iGreen FETCH
  57.     iBlue FETCH
  58.  
  59.     ( Load the actual program 
  60.     "rpl/saturnus.rpl" LOAD
  61.  
  62.     REFRESH
  63. ;
  64.  
  65. : sacbHelp
  66.  
  67. ;
  68.  
  69. : sacbCancel
  70.     saaWindow FETCH UI_DELETE
  71.     FALSE saaWindow STORE
  72. ;
  73.  
  74. : sacbWindow
  75.     PARAM
  76.         VARIABLE iMouseY
  77.         VARIABLE iMouseX
  78.         VARIABLE iEvent
  79.     ENDPARAM
  80.  
  81.     UIWM_Close iEvent FETCH = IF
  82.         saaWindow FETCH UI_DELETE
  83.         FALSE saaWindow STORE
  84.     ENDIF
  85. ;
  86.  
  87. ?ENDIF ( SATURNUS_GUI
  88.  
  89. ( 
  90. ( Create display objects
  91. (
  92.  
  93. saaWindow FETCH 
  94. ?IF
  95.     "Understood" "Interface already opened" GET_KEY DROP
  96. ?ELSE
  97.     UI_Done & sacbWindow 0 0 400 200 "Saturnus Tool" UI_WINDOW saaWindow STORE
  98.  
  99.     UI_Done 
  100.     "0.01" UIST_String
  101.     saaWindow FETCH NULL saiLeft 20 saiWidth saiHeight "Size for Particles" UI_STRING saaPartSize STORE
  102.  
  103.     UI_Done 
  104.     1    UISL_Min
  105.     1000 UISL_Max
  106.     20   UISL_Level
  107.     saaWindow FETCH NULL saiLeft 35 saiWidth saiHeight "Particles/Ring" UI_SLIDER saaPartCnt STORE
  108.  
  109.     UI_Done 
  110.     "0.5" UIST_String
  111.     saaWindow FETCH NULL saiLeft 50 saiWidth saiHeight "Planet Size" UI_STRING saaPlanetSize STORE
  112.  
  113.     UI_Done 
  114.     1    UISL_Min
  115.     10   UISL_Max
  116.     4    UISL_Level
  117.     saaWindow FETCH NULL saiLeft 65 saiWidth saiHeight "Rings" UI_SLIDER saaRingCnt STORE
  118.  
  119.     UI_Done 
  120.     0 UICB_Checked
  121.     saaWindow FETCH NULL saiLeft 80 50 12 "Create wire frames for particles" UI_CHECKBOX saaWireFrames STORE
  122.     
  123.     UI_Done 
  124.     0   UISL_Min
  125.     255 UISL_Max
  126.     100 UISL_Level
  127.     saaWindow FETCH NULL saiLeft 95 saiWidth saiHeight "Red" UI_SLIDER saaRed STORE
  128.  
  129.     UI_Done 
  130.     0   UISL_Min
  131.     255 UISL_Max
  132.     220 UISL_Level
  133.     saaWindow FETCH NULL saiLeft 110 saiWidth saiHeight "Green" UI_SLIDER saaGreen STORE
  134.  
  135.     UI_Done 
  136.     0   UISL_Min
  137.     255 UISL_Max
  138.     200 UISL_Level
  139.     saaWindow FETCH NULL saiLeft 125 saiWidth saiHeight "Blue" UI_SLIDER saaBlue STORE
  140.  
  141.     UI_Done 
  142.     "Define parameters for saturnus" UITX_Text
  143.     1 UITX_Border
  144.     saaWindow FETCH NULL 60 140 320 saiHeight "Info" UI_TEXT saaText STORE
  145.  
  146.     UI_Done saaWindow FETCH & sacbApply  20  160 100 saiHeight "Apply"  UI_BUTTON DROP
  147.     UI_Done saaWindow FETCH & sacbHelp   140 160 100 saiHeight "Help"   UI_BUTTON DROP
  148.     UI_Done saaWindow FETCH & sacbCancel 280 160 100 saiHeight "Cancel" UI_BUTTON DROP
  149.  
  150.     ( realize gadgets
  151.  
  152.     saaWindow FETCH UI_REALIZE
  153. ?ENDIF
  154.